home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / tpcols.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  468b  |  19 lines
  1. /* Draw Columns Background */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. address 'DigiPaint' /* Tell ARexx where commands go */
  5. 'Drre'
  6. 'Flon'
  7. 'Hvof'                    /* Turn off Horizontal and Vertical gradients */    
  8. 'Harr'                    /* Toggle Horiz. Gradient (on) */
  9. 'Dotb'
  10. 'Poth' $8000        /* Set Gradient center to middle ($0000 - $FFFF) */
  11. 'Rang'
  12. w=47
  13. do x=0 to 752-w by w
  14.   'Pend' x 0
  15.   'Penu' x+w 482
  16. end
  17. 'Shco'          /* Render to Program Out */
  18. exit            /* Bye bye! */
  19.